home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
NEW
/
A-Newest
/
TORPET.d64
/
between lines.3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-12
|
110b
|
8 lines
1000 DIM N$(3)
1010 RESTORE
1020 READ X$:IF X$<>"NAMES" THEN 1020
1030 FOR N=1 TO 3
1040 READ N$(N)
1050 NEXT
1060 DATA NAMES,JOHN,SUE,MARY